home *** CD-ROM | disk | FTP | other *** search
/ Virtual Sex (VCA Interactive) / Virtual Sex (VCA Interactive).iso / mac / Virtual Sex 68K Mac / VS_TM / 00046.ls < prev    next >
Encoding:
Text File  |  1995-06-22  |  1.3 KB  |  73 lines
  1. global gMood, gState, gAnswers, gJR, gTM, gMS
  2.  
  3. on startMovie
  4.   set gAnswers to 1
  5. end
  6.  
  7. on PickMood
  8.   set gMood to random(3)
  9.   if gMood = 1 then
  10.     play frame "MoodBad"
  11.   else
  12.     nothing()
  13.   end if
  14.   if gMood = 2 then
  15.     play frame "MoodTired"
  16.   else
  17.     nothing()
  18.   end if
  19.   if gMood = 3 then
  20.     play frame "MoodHorny"
  21.   else
  22.     nothing()
  23.   end if
  24. end
  25.  
  26. on stateOfBeing
  27.   set gState to 3
  28.   set the castNum of sprite 13 to gState
  29.   updateStage()
  30. end
  31.  
  32. on Aanswer i, y
  33.   set myList to list("HT4.AIF", "LT.AIF", "NC1.AIF", "R1.AIF", "SS1.AIF", "ST1.AIF", "WC1.AIF", "T1.AIF", "UH1.AIF")
  34.   set z to random(9)
  35.   set mySound to getAt(myList, z)
  36.   if gAnswers = i then
  37.     set gState to gState + 1
  38.     if gState > 6 then
  39.       set gState to 6
  40.     end if
  41.     set the castNum of sprite 13 to gState
  42.     updateStage()
  43.     set gAnswers to gAnswers + 1
  44.     if y = 9 then
  45.       play frame the frame + 4
  46.     else
  47.       play frame the frame + 1
  48.     end if
  49.   end if
  50.   if gAnswers <> i then
  51.     set gState to gState - 1
  52.     if gState = 0 then
  53.       play frame "fin"
  54.     else
  55.       puppetSound(mySound)
  56.       set the castNum of sprite 13 to gState
  57.       play frame the frame
  58.     end if
  59.   end if
  60. end
  61.  
  62. on winner
  63.   set gWin to gWin + 1
  64.   play movie "Virtual Sex:MAIN"
  65. end
  66.  
  67. on clearTheBitches
  68.   set gJR to 0
  69.   set gTM to 0
  70.   set gMS to 0
  71.   play movie "Virtual Sex:MAIN"
  72. end
  73.